﻿Imports System.Data.SqlClient

Public Class admeditright
    Inherits System.Web.UI.Page
    Private sSQL As String
    Private role As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim colctr As Integer
        Dim strVID As String
        Dim Rs As New DataSet
        Dim strTDError As String = ""
        Dim strHtml As String = ""
        'If Request("btnUpdate") <> Nothing And Request("btnUpdate") = "Update" Then
        '    Exit Sub
        'End If
        strVID = Trim(Request("aid"))
        role = Trim(Request("role"))
        sSQL = "select * from user_roles order by displayorder"
        Dim objfind As New GetData
        Dim objrd As SqlDataReader = Nothing
        objfind.Dataset(sSQL, "user_roles", strTDError, Rs)

        If Rs.Tables(0).Rows.Count <> 0 Then
            strHtml += "<table class='minorbox' cellspacing='1' width='100%' border=""0""  style=""background-color:#3399FF"">"
            strHtml += "<tr	><td class='gridheader'  style=""background-color:#AACCFF"">Role ID</td></tr>"
            For colctr = 0 To Rs.Tables(0).Rows.Count - 1
                Rs.Tables(0).Rows(colctr).Item("adminuser_id").ToString()
            Next
        End If
    End Sub

End Class